home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_53.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  856 b   |  32 lines
  1. on exitFrame
  2.   global nappi_sprite, us, uss, fade_count, fade_limit
  3.   LiveRollOver(103, 103, 0)
  4.   set fade_limit to 3
  5.   DefCurs()
  6.   if fade_count < fade_limit then
  7.     set fade_count to fade_count + 1
  8.   end if
  9.   if the puppet of sprite nappi_sprite = 0 then
  10.     set the puppet of sprite nappi_sprite to 1
  11.   end if
  12.   set us to 0
  13.   set uss to 0
  14.   cov_test_a(2, 194, "newsun_c3", "newsun")
  15.   cov_test_a(3, 258, "newsun_c2", "newsun")
  16.   cov_test_a(4, 324, "newsun_c1", "newsun")
  17.   cov_test(2, 194, "newsun_c3", "newsun")
  18.   cov_test(3, 258, "newsun_c2", "newsun")
  19.   cov_test(4, 324, "newsun_c1", "newsun")
  20.   if us = 1 then
  21.     set the locH of sprite nappi_sprite to 460
  22.   else
  23.     if the locV of sprite nappi_sprite < 480 then
  24.       set the locV of sprite nappi_sprite to 490
  25.     end if
  26.   end if
  27.   if uss = 1 then
  28.     updateStage()
  29.   end if
  30.   go(the frame)
  31. end
  32.